home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / comm / misc / MLogBook.lha / MLogBook / Install / Install_MLogBook < prev    next >
Encoding:
Text File  |  2000-10-17  |  8.5 KB  |  252 lines

  1. ;
  2. ; $VER: Installer script 1.0 for MLogBook 0.50 (16.10.00) © Grzegorz Fitrzyk
  3.  
  4. ; /// Setting up
  5. (set #def_lang_English              0)
  6. (set #def_lang_Polski               1)
  7.  
  8. (set #def_doc_English               0)
  9. (set #def_doc_Polski                1)
  10. ; ///
  11. ;----------------------------------------------------------------------------
  12. ;/// ***** English
  13. (set #def_cat_lang #def_lang_English)
  14. (set #def_doc_lang #def_doc_English)
  15. (set #wrongOS  "MLogBook needs at least OS2.1 to run\n")
  16. (set #wrongMUI "MLogBook needs at least MUI3.8 to run\n")
  17. (set #wrongCPU "MLogBook needs at least a 68020 CPU to run\n")
  18. (set #proc_type "Select which version of MLogBook you would like to install:")
  19. (set #proc_help (cat "Here you can select which version of MLogBook to install "
  20.                      "depending on type of processor you own."))
  21. (set #proc_020 "Optimized for 68020/030")
  22. (set #proc_040 "Optimized for 68040")
  23. (set #proc_060 "Optimized for 68060")
  24. (set #MLogBook_dir  (cat "Please select where you want to install MLogBook.\n"
  25.                     "A drawer named 'MLogBook' will be created in this directory"))
  26. (set #lang_catalog (cat "Which catalog file do you want to install?\n"
  27.                         "(English language is built-in)"))
  28. (set #lang_manual "Select language for on-line AmigaGuide help")
  29. (set #done_1   (cat "\nMLogBook has been succesfuly installed.\n\n"
  30.                     "Click the \"MLogBook\" icon in the\n"))
  31. (set #done_2        "\ndirectory to taste it.\n\nHave fun...")
  32. ; ///
  33.  
  34. ; /// ***** Polski
  35. (IF (= @language "polski")
  36. (
  37. (set #def_cat_lang #def_lang_Polski)
  38. (set #wrongOS  "MLogBook do uruchomienia wymaga systemu w wersji 2.1 lub wyûszej\n")
  39. (set #wrongMUI "MLogBook do uruchomienia wymaga MUI w wersji 3.8 lub wyûszej\n")
  40. (set #wrongCPU "MLogBook do uruchomienia wymaga procesura 68020 lub nowszego\n")
  41. (set #proc_type "Wybierz którâ wersjë MLogBooka chcesz zainstalowaê:")
  42. (set #proc_help (cat "Tu moûesz wybraê którâ wersjë MLogBooka chcesz zainstalowaê "
  43.                      "zaleûnie od typu procesora który posiadasz."))
  44. (set #proc_020 "Zoptymalizowanâ dla 68020/030")
  45. (set #proc_040 "Zoptymalizowanâ dla 68040")
  46. (set #proc_060 "Zoptymalizowanâ dla 68060")
  47. (set #MLogBook_dir  (cat "Pokaû, gdzie mam zainstalowaê MLogBooka.\n"
  48.                     "Katalog 'MLogBook' zostanie stworzony w tym katalogu."))
  49. (set #lang_catalog (cat "Który plik tîumaczenia chcesz zainstalowaê?\n"
  50.                         "(Jëzyk angielski jest wbudowany)"))
  51. (set #lang_manual "Wybierz jëzyk dla pomocy on-line")
  52. (set #done_1   (cat "\nMLogBook zostaî zainstalowany.\n\n"
  53.                     "Kliknij ikonë \"MLogBook\" w katalogu\n"))
  54. (set #done_2        "\naby go uruchomiê.\n\nMiîej zabawy...")
  55. )
  56. )
  57. ; ///
  58.  
  59. ;----------------------------------------------------------------------------
  60. ; /// Checking environment
  61. (set OS_ver (getversion "exec.library" (resident)))
  62. (if (< OS_ver (* 37 65536)) (abort #wrongOS))
  63.  
  64. (set MUI_ver (getversion "MUI:libs/muimaster.library"))
  65. (if (AND (< MUI_ver (* 19 65536)) (<> MUI_ver 0)) (abort #wrongMUI))
  66.  
  67. (set cpu_type (database "cpu"))
  68. (if (< cpu_type "68020") (abort #wrongCPU))
  69. (set cpu 0)
  70. (if (= cpu_type "68040") (set cpu 1))
  71. (if (= cpu_type "68060") (set cpu 2))
  72.  
  73. (set package_cpu (exists "/.package_cpu"))
  74. (set package_loc (exists "/.package_loc"))
  75. (set MLogBook_def_dir "RAM:")
  76. ; ///
  77. ; /// Let's ask user for anything
  78. (complete 0)
  79.  
  80. (set mldir
  81.    (askdir
  82.       (default MLogBook_def_dir)
  83.       (prompt  #MLogBook_dir)
  84.       (help    @askdir-help)
  85.    )
  86. )
  87. (set MLogBook_dir (tackon mldir "MLogBook") )
  88. (if (not (exists MLogBook_dir) )
  89.   ( (makedir MLogBook_dir) )
  90.   ( (set MLogBook-version (/ (getversion (tackon mldir "MLogBook/MLogBook") ) 65536 ) )
  91.     (if (< MLogBook-version 1)
  92.       ( (run (cat "c:rename \"" (tackon mldir "MLogBook") "\" \"" (tackon mldir "MLogBook_Old") "\"") )
  93.         (makedir MLogBook_dir) ) ) ) )
  94.  
  95. (if (not (exists (tackon MLogBook_dir "MLogBook.info") ) )
  96.   (copyfiles (source "/icons/5.info") (dest mldir) (newname "MLogBook.info") ) )
  97.  
  98.  
  99. (complete 5)
  100.  
  101. (if package_cpu
  102.    (set cpu
  103.       (askchoice
  104.          (prompt #proc_type)
  105.          (help #proc_help "\n" @askchoice-help)
  106.          (choices #proc_020 #proc_040 #proc_060)
  107.          (default cpu)
  108.       )
  109.    )
  110.    (set cpu 0)
  111. )
  112.  
  113. (complete 10)
  114.  
  115. (if package_loc
  116.    (set Catalog_lang
  117.       (askoptions
  118.          (prompt  #lang_catalog)
  119.          (help @askoptions-help)
  120.          (choices "Polski"
  121.          )
  122.          (default #def_cat_lang)
  123.       )
  124.    )
  125.    (set Catalog_lang #def_lang_English)
  126. )
  127.  
  128. (complete 15)
  129.  
  130. (set Docs_lang
  131.    (askchoice
  132.       (prompt  #lang_manual)
  133.       (help    @askchoice-help)
  134.       (choices "English" "Polski")
  135.       (default #def_doc_lang)
  136.    )
  137. )
  138.  
  139. ; /// Here we go!
  140. (complete 20)
  141.  
  142. (makedir MLogBook_dir (infos))
  143. (copyfiles (source "/680x0/MLogBook.info") (dest MLogBook_dir) (infos) (help @copyfiles-help))
  144. (select cpu
  145. (copyfiles (source "/680x0/MLogBook") (dest MLogBook_dir) (help @copyfiles-help))
  146. (run (cat "/680x0/spatch -o" (tackon MLogBook_dir "MLogBook") " -p/680x0/MLogBook.68040.pch /680x0/MLogBook"))
  147. (run (cat "/680x0/spatch -o" (tackon MLogBook_dir "MLogBook") " -p/680x0/MLogBook.68060.pch /680x0/MLogBook"))
  148. )
  149.  
  150. (complete 30)
  151.  
  152. (if (> Catalog_lang 0)
  153. (
  154.    (set Cat_dir (tackon MLogBook_dir "Catalogs"))
  155.    (if (not (exists Cat_dir))  (makedir Cat_dir))
  156.    (if (bitand Catalog_lang #def_lang_Polski)           ((set lang "polski") (copyfiles (source (tackon "/Catalogs" lang)) (choices "MLogBook.catalog") (dest (tackon Cat_dir lang)))))
  157. )
  158. )
  159.  
  160. (complete 35)
  161.  
  162. (if (= Docs_lang #def_doc_English  ) (copyfiles (source "/Docs/MLogBook_en.guide")   (dest MLogBook_dir) (newname "MLogBook.guide") (infos)))
  163. (if (= Docs_lang #def_doc_Polski  ) (copyfiles (source "/Docs/MLogBook_pl.guide")   (dest MLogBook_dir) (newname "MLogBook.guide") (infos)))
  164.  
  165. (complete 40)
  166.  
  167. (set Icons_dir (tackon MLogBook_dir "Icons"))
  168. (if (not (exists Icons_dir))
  169. (
  170.    (makedir Icons_dir)
  171.    (copyfiles (source "/Icons")  (dest Icons_dir) (all))
  172. )
  173. )
  174.  
  175. (set Images_dir (tackon MLogBook_dir "Images"))
  176. (if (not (exists Images_dir))
  177. (
  178.    (makedir Images_dir)
  179.    (copyfiles (source "/Images")  (dest Images_dir) (all))
  180. )
  181. )
  182.  
  183. (set dummy 0)
  184.  
  185. (complete 45)
  186.  
  187. (set Rules_dir (tackon MLogBook_dir "Rules"))
  188. (if (not (exists Rules_dir))
  189. (
  190.    (makedir Rules_dir)
  191.    (copyfiles (source "/Rules")  (dest Rules_dir) (all))
  192. )
  193. )
  194.  
  195. (complete 50)
  196.  
  197. (set CallBook_dir (tackon MLogBook_dir "CallBook"))
  198. (if (not (exists CallBook_dir))
  199. (
  200.    (makedir CallBook_dir)
  201.    (copyfiles (source "/CallBook")  (dest CallBook_dir) (all))
  202. )
  203. )
  204.  
  205. (complete 60)
  206.  
  207. (set Index_dir (tackon MLogBook_dir "Index"))
  208. (if (not (exists Index_dir))
  209. (
  210.    (makedir Index_dir)
  211.    (copyfiles (source "/Index")  (dest Index_dir) (all))
  212. )
  213. )
  214.  
  215. (complete 70)
  216.  
  217. (set Prefixes_dir (tackon MLogBook_dir "Prefixes"))
  218. (if (not (exists Prefixes_dir))
  219. (
  220.    (makedir Prefixes_dir)
  221.    (copyfiles (source "/Prefixes")  (dest Prefixes_dir) (all))
  222. )
  223. )
  224.  
  225. (complete 80)
  226.  
  227. (copyfiles (source "/Main")  (dest MLogBook_dir) (infos) (all))
  228.  
  229. (complete 90)
  230.  
  231. (copylib (prompt "MUI - BetterString.mcc") (source "/Libs/MUI/BetterString.mcc") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  232. (copylib (prompt "MUI - BetterString.mcp") (source "/Libs/MUI/BetterString.mcp") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  233. (copylib (prompt "MUI - HotkeyString.mcc") (source "/Libs/MUI/HotkeyString.mcc") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  234. (copylib (prompt "MUI - NFloattext.mcc")   (source "/Libs/MUI/NFloattext.mcc") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  235. (copylib (prompt "MUI - NList.mcc")        (source "/Libs/MUI/NList.mcc") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  236. (copylib (prompt "MUI - NListview.mcc")    (source "/Libs/MUI/NListview.mcc") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  237. (copylib (prompt "MUI - NListviews.mcp")   (source "/Libs/MUI/NListviews.mcp") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  238. (copylib (prompt "MUI - SpeedBar.mcc")     (source "/Libs/MUI/SpeedBar.mcc") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  239. (copylib (prompt "MUI - SpeedBar.mcp")     (source "/Libs/MUI/SpeedBar.mcp") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  240. (copylib (prompt "MUI - SpeedBarCfg.mcc")  (source "/Libs/MUI/SpeedBarCfg.mcc") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  241. (copylib (prompt "MUI - SpeedButton.mcc")  (source "/Libs/MUI/SpeedButton.mcc") (dest "MUI:Libs/MUI/") (confirm 2) (help @copylib-help))
  242.  
  243. (complete 100)
  244.  
  245. (message #done_1 "\"" MLogBook_dir "\"" #done_2)
  246.  
  247. ; /// ********************
  248. ;----------------------------------------------------------------------------
  249. (exit (QUIET))
  250.  
  251.